home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / dcg301up / civilian.scr < prev    next >
Text File  |  1993-05-02  |  1KB  |  67 lines
  1. !
  2. ! Default civilian script..
  3. !
  4. ! (c) DC Software, 1992
  5. !
  6. ! Pending Enhancements
  7. !
  8. ! - This script has no voices.  For an example of voices, look at
  9. !   MERCHANT.SCR and HEALER.SCR
  10. !   
  11.  
  12. !------------------------------------------------------------------------!
  13. :@TALK ! Talk to the character !
  14. !------------------------------------------------------------------------!
  15.  
  16. ! First, say hello.. !
  17.   if NPC.V0 > 0 then
  18.     writeln( "Hello ", player.name, ". What brings you back?" );
  19.   else
  20.     writeln( "Hello. I am ", npc.name, ". How may I help you?" );
  21.   endif;
  22.  
  23. ! Now, set some variables..
  24.   NPC.V0 = 1; ! From know on, remember we've been here
  25.  
  26. :LOOP
  27.   L3 = getstr("Name","Job","Join","Bye");
  28.   if L3 = -1 then 
  29.     writeln( "Ok." );
  30.     STOP;
  31.   endif;
  32.  
  33. ! First, see if the keyword typed is in the character's text block !
  34.   if dotext( S0 ) then
  35.     if L3 = 3 then
  36.       STOP;
  37.     endif;
  38.     goto LOOP;
  39.   endif;
  40.  
  41. ! It didn't, so try the predefined ones..
  42.   on L3 goto CNAME, CJOB, CJOIN, CSTOP;
  43.  
  44. ! Nope, try a 'DEFAULT' line
  45.   if not dotext( "DEFAULT" ) then
  46.     writeln( "I don't know anything about that!" );
  47.   endif;
  48.   goto LOOP;
  49.  
  50. :CNAME
  51.   writeln( "My name is ", NPC.name, "." );
  52.   GOTO LOOP;
  53.  
  54. :CJOB
  55.   writeln( "I am a ", npc.type );
  56.   GOTO LOOP;
  57.  
  58. :CJOIN
  59.   writeln( "I'm too busy.  Sorry." );
  60.   GOTO LOOP;
  61.  
  62. :CSTOP
  63.   writeln( "Nice talking to you.." );
  64.   STOP;
  65.  
  66. ! Feel free to expand on this list.. !
  67.